home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_pas / cddk9605.zip / TUTOR.ZIP / INIT.SCR < prev    next >
Text File  |  1996-05-16  |  5KB  |  107 lines
  1.  
  2. ; ┌─────────────────────────────────────────────────────────────────────────┐
  3. ; │ ▒▒▒ Command-Line Parameters ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
  4. ; └─────────────────────────────────────────────────────────────────────────┘
  5.  
  6.   GetParam B, Baud            ; Baud rate for the current session
  7.   GetParam C, ComPort         ; Communications port
  8.   GetParam N, Node            ; Node number
  9.   GetParam O, LockedBaud      ; Locked baud rate
  10.   GetParam P, DropFile        ; Full path and name of the drop file
  11.  
  12.   LoadDropFile
  13.   InitFOSSIL
  14.  
  15.  
  16. ; ┌─────────────────────────────────────────────────────────────────────────┐
  17. ; │ ▒▒▒ Video Configuration ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
  18. ; └─────────────────────────────────────────────────────────────────────────┘
  19.  
  20.   DetectANSI "~|[ansi detection]~|"
  21.  
  22.   AVATARClrScrColor = 3      ; Default AVATAR clear-screen color
  23.   CheckSnow         = No     ; Slow down output for older monitors?
  24.   Color             = 7      ; Reset current color to white on black
  25.   DBS               = Yes    ; Destructive backspaces?
  26.   DirectVideo       = Yes    ; Write directly to video RAM (faster)?
  27.  
  28.   Randomize Timer 
  29.  
  30.  
  31. ; ┌─────────────────────────────────────────────────────────────────────────┐
  32. ; │ ▒▒▒ Chat-Mode ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
  33. ; └─────────────────────────────────────────────────────────────────────────┘
  34.  
  35.   ChatGreeting   = "~FGreeting.ANS|~|"
  36.   ChatGoodbye    = "|0F~|■|07 Exiting chat mode...~|~|"
  37.   ChatExecPrompt = "|07Command: "
  38.  
  39.   ; ChatGreeting is shown upon entry into the chat mode.  ChatGoodbye is
  40.   ; shown when the chat mode is terminated.  ChatExecPrompt is displayed
  41.   ; when the sysop enters the chat-mode command interpreter.  Refer to
  42.   ; SYSOP.DOC for more information.
  43.  
  44.   IceChatColors
  45.  
  46.  
  47. ; ┌─────────────────────────────────────────────────────────────────────────┐
  48. ; │ ▒▒▒ Status Lines ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
  49. ; └─────────────────────────────────────────────────────────────────────────┘
  50.  
  51.   Status Help,  2, "|3F Alt-C |31Chat  |3FAlt-H |31Hang Up  |3FAlt-X |31Exit  |3FPgUp/PgDn |31Fade In/Out  |3FF-10 |31Hide~CE~| {Application} {Version} ∙ {Copyright}~CE"
  52.   Status Quote, 1, "|31 What is now proved was once only imagin'd. - William Blake~CE"
  53.   Status Peter, 1, "|31 Piotr Ilich Tchaikovsky [1840 - 1893] · Rest in peace, friend...~CE"
  54.   ;        │    │    │
  55.   ;        │    │    └─ The text shown in the status line.  You may use any
  56.   ;        │    │       variables, color codes, or control codes.  Be sure to
  57.   ;        │    │       end the string with the ~CE control code, which erases
  58.   ;        │    │       the text between the cursor and the right side of the
  59.   ;        │    │       screen.  Otherwise, you may see parts of the previous
  60.   ;        │    │       status line when switching lines!      
  61.   ;        │    │
  62.   ;        │    └────── The size of the status line.
  63.   ;        │
  64.   ;        └─────────── A name associated with this particular status line.
  65.   ;                     From this point on, you will always use this name
  66.   ;                     to identify the status line.  YOU MUST USE A UNIQUE
  67.   ;                     NAME!  That is, don't use the name of a command or
  68.   ;                     variable.
  69.  
  70.  
  71. ; ┌─────────────────────────────────────────────────────────────────────────┐
  72. ; │ ▒▒▒ SysKeys (Function Keys) ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
  73. ; └─────────────────────────────────────────────────────────────────────────┘
  74.  
  75.   SysKey $2E00, "Chat"               ; Alt-C
  76.   SysKey $2300, "HangUp Exit 0"      ; Alt-H
  77.   SysKey $3100, "LineNoise"          ; Alt-N
  78.   SysKey $2D00, "Exit 0"             ; Alt-X
  79.   SysKey $5100, "FadeOut"            ; Page Down
  80.   SysKey $4900, "FadeIn"             ; Page Up
  81.   SysKey $3B00, "ShowStatus Help"    ; F1
  82.   SysKey $3C00, "ShowStatus Quote"   ; F2
  83.   SysKey $3D00, "ShowStatus Peter"   ; F3
  84.   SysKey $4400, "HideStatus"         ; F10
  85.   ;        │      │
  86.   ;        │      └─ Command(s) to execute when the scan code is pressed
  87.   ;        │         on the local computer.  Remote callers cannot use
  88.   ;        │         SysKeys.
  89.   ;        │
  90.   ;        └──────── Keyboard scan code. The door will execute the specified
  91.   ;                  commands when the scan code is pressed on the local
  92.   ;                  computer.  Refer to SYSOP.DOC for a list of scan codes.
  93.  
  94.  
  95. ; ┌─────────────────────────────────────────────────────────────────────────┐
  96. ; │ ▒▒▒ Software Information ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
  97. ; └─────────────────────────────────────────────────────────────────────────┘
  98.  
  99. ; The following variables are usually READ-ONLY.  That is, you may use them
  100. ; as macros in a string or text file, but you may not be able to modify
  101. ; them.  Contact the author for more information.
  102.  
  103.   Application = "Bernice the Dragon"
  104.   Copyright   = "Copyright 1996 David Pinch ∙ All Rights Reserved"
  105.   Version     = "1.0"
  106.   Build       = "960517"
  107.